home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tf.d64 / dancing mouse.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  37 lines
  1. 0 REM------*THE DANCING MOUSE*----------
  2. 1 REM FROM PG.167 OF THE 64 PROGRAMMER'SREFERENCE GUIDE (_PRG)
  3. 2 REM AN EXAMPLE OF SPRITE ANIMATION W/ SOUND EFFECTS
  4. 3 REM SEE PAGES 168-175 OF YOUR C-64 PRGFOR DETAILED INFO. ON HOW IT WORKS------
  5. 5 REM SUBMITTED TO TPUG BY JONATHAN (J.)                           ASHWORTH_____
  6. 7 S=54272:POKES+24,15:POKES,220:POKES+1,68:POKES+5,15:POKES+6,215
  7. 8 POKES+7,120:POKES+8,100:POKES+12,15:POKES+13,215
  8. 10 POKES+7,120:POKES+8,100:POKES+12,15:POKES+13,215
  9. 15 PRINT"[147]":V=53248:POKEV+21,1
  10. 20 FORS1=12288TO12350:READQ1:POKES1,Q1:NEXT
  11. 25 FORS2=12352TO12414:READQ2:POKES2,Q2:NEXT
  12. 30 FORS3=12416TO12478:READQ3:POKES3,Q3:NEXT
  13. 35 POKEV+39,15:POKEV+1,68
  14. 40 PRINTTAB(160)"I AM THE DANCING MOUSE![154]"
  15. 45 P=192
  16. 50 FORX=0TO347STEP3
  17. 55 RX=INT(X/256):LX=X-RX*256
  18. 60 POKEV,LX:POKEV+16,RX
  19. 70 IFP=192THENGOSUB200
  20. 75 IFP=193THENGOSUB300
  21. 80 POKE2040,P:FORT=1TO60:NEXT
  22. 85 P=P+1:IFP>194THENP=192
  23. 90 NEXT:FORT=1TO1500:NEXT
  24. 95 LIST:REM __NOT IN ORIGINAL PROGRAM!!
  25. 100 DATA30,0,120,63,0,252,127,129,254,127,129,254,127,189,254,127,255,254
  26. 101 DATA63,255,252,31,187,248,3,187,192,1,255,128,3,189,192,1,231,128,1,255,0
  27. 102 DATA31,255,0,0,124,0,0,254,0,1,199,32,3,131,224,7,1,192,1,192,0,3,192,0
  28. 103 DATA30,0,120,63,0,252,127,129,254,127,129,254,127,189,254,127,255,254
  29. 104 DATA63,255,252,31,221,248,3,221,192,1,255,128,3,255,192,1,195,128,1,231,3
  30. 105 DATA31,255,255,0,124,0,0,254,0,1,199,0,7,1,128,7,0,204,1,128,124,7,128,56
  31. 106 DATA30,0,120,63,0,252,127,129,254,127,129,254,127,189,254,127,255,254
  32. 107 DATA63,255,252,31,221,248,3,221,192,1,255,134,3,189,204,1,199,152,1,255,48
  33. 108 DATA1,255,224,1,252,0,3,254,0
  34. 109 DATA7,14,0,204,14,0,248,56,0,112,112,0,0,60,0,-1
  35. 200 POKES+4,129:POKES+4,128:RETURN
  36. 300 POKES+11,129:POKES+11,128:RETURN
  37.